home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wg_lib / ostrfrm.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  6.5 KB  |  213 lines
  1. VERSION 2.00
  2. Begin Form OStrFrm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Names"
  5.    ClientHeight    =   4380
  6.    ClientLeft      =   2175
  7.    ClientTop       =   1635
  8.    ClientWidth     =   4800
  9.    Height          =   4785
  10.    Left            =   2115
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form4"
  13.    ScaleHeight     =   4380
  14.    ScaleWidth      =   4800
  15.    Top             =   1290
  16.    Width           =   4920
  17.    Begin Frame Frame2 
  18.       BackColor       =   &H00C0C0C0&
  19.       Caption         =   "String Names"
  20.       Height          =   1695
  21.       Left            =   345
  22.       TabIndex        =   11
  23.       Top             =   2385
  24.       Width           =   4095
  25.       Begin CommandButton NameCmd 
  26.          Caption         =   "Execute"
  27.          Height          =   285
  28.          Left            =   1410
  29.          TabIndex        =   18
  30.          Top             =   705
  31.          Width           =   1080
  32.       End
  33.       Begin TextBox NameTxt 
  34.          Height          =   285
  35.          Left            =   1245
  36.          TabIndex        =   12
  37.          Text            =   "mary beth susan ann johnson"
  38.          Top             =   315
  39.          Width           =   2640
  40.       End
  41.       Begin Label nswap 
  42.          BackColor       =   &H00C0C0C0&
  43.          ForeColor       =   &H00FF0000&
  44.          Height          =   210
  45.          Left            =   1245
  46.          TabIndex        =   17
  47.          Top             =   1290
  48.          Width           =   2640
  49.       End
  50.       Begin Label Label12 
  51.          BackColor       =   &H00C0C0C0&
  52.          Caption         =   "First, Last:"
  53.          Height          =   225
  54.          Left            =   150
  55.          TabIndex        =   16
  56.          Top             =   1275
  57.          Width           =   960
  58.       End
  59.       Begin Label Pname 
  60.          BackColor       =   &H00C0C0C0&
  61.          ForeColor       =   &H00FF0000&
  62.          Height          =   225
  63.          Left            =   1245
  64.          TabIndex        =   14
  65.          Top             =   990
  66.          Width           =   2625
  67.       End
  68.       Begin Label Label11 
  69.          BackColor       =   &H00C0C0C0&
  70.          Caption         =   "ProperCase:"
  71.          Height          =   255
  72.          Left            =   90
  73.          TabIndex        =   15
  74.          Top             =   990
  75.          Width           =   1095
  76.       End
  77.       Begin Label Label9 
  78.          BackColor       =   &H00C0C0C0&
  79.          Caption         =   "Your Name:"
  80.          Height          =   255
  81.          Left            =   105
  82.          TabIndex        =   13
  83.          Top             =   375
  84.          Width           =   1020
  85.       End
  86.    End
  87.    Begin Frame Frame1 
  88.       BackColor       =   &H00C0C0C0&
  89.       Caption         =   "ParseFileSpec"
  90.       Height          =   1935
  91.       Left            =   360
  92.       TabIndex        =   0
  93.       Top             =   240
  94.       Width           =   4095
  95.       Begin CommandButton ParseCmd 
  96.          BackColor       =   &H00000000&
  97.          Caption         =   "Parse File"
  98.          Height          =   315
  99.          Left            =   2655
  100.          TabIndex        =   10
  101.          Top             =   1500
  102.          Width           =   1035
  103.       End
  104.       Begin TextBox Filetxt 
  105.          Height          =   315
  106.          Left            =   240
  107.          TabIndex        =   1
  108.          Text            =   "C:\WIN\SYSTEM\WINxxx.FIL"
  109.          Top             =   435
  110.          Width           =   3660
  111.       End
  112.       Begin Label FLbl 
  113.          BackColor       =   &H00C0C0C0&
  114.          ForeColor       =   &H00FF0000&
  115.          Height          =   180
  116.          Index           =   4
  117.          Left            =   825
  118.          TabIndex        =   9
  119.          Top             =   1590
  120.          Width           =   735
  121.       End
  122.       Begin Label Label4 
  123.          BackColor       =   &H00C0C0C0&
  124.          Caption         =   "Ext:"
  125.          Height          =   210
  126.          Left            =   345
  127.          TabIndex        =   5
  128.          Top             =   1590
  129.          Width           =   375
  130.       End
  131.       Begin Label FLbl 
  132.          BackColor       =   &H00C0C0C0&
  133.          ForeColor       =   &H00FF0000&
  134.          Height          =   180
  135.          Index           =   3
  136.          Left            =   825
  137.          TabIndex        =   8
  138.          Top             =   1365
  139.          Width           =   1200
  140.       End
  141.       Begin Label Label3 
  142.          BackColor       =   &H00C0C0C0&
  143.          Caption         =   "File:"
  144.          Height          =   255
  145.          Left            =   345
  146.          TabIndex        =   4
  147.          Top             =   1335
  148.          Width           =   375
  149.       End
  150.       Begin Label FLbl 
  151.          BackColor       =   &H00C0C0C0&
  152.          ForeColor       =   &H00FF0000&
  153.          Height          =   180
  154.          Index           =   2
  155.          Left            =   810
  156.          TabIndex        =   7
  157.          Top             =   1110
  158.          Width           =   3165
  159.       End
  160.       Begin Label Label2 
  161.          BackColor       =   &H00C0C0C0&
  162.          Caption         =   "Path:"
  163.          Height          =   210
  164.          Left            =   285
  165.          TabIndex        =   3
  166.          Top             =   1110
  167.          Width           =   495
  168.       End
  169.       Begin Label FLbl 
  170.          BackColor       =   &H00C0C0C0&
  171.          ForeColor       =   &H00FF0000&
  172.          Height          =   180
  173.          Index           =   1
  174.          Left            =   825
  175.          TabIndex        =   6
  176.          Top             =   840
  177.          Width           =   1110
  178.       End
  179.       Begin Label Label1 
  180.          BackColor       =   &H00C0C0C0&
  181.          Caption         =   "Drive:"
  182.          Height          =   255
  183.          Left            =   240
  184.          TabIndex        =   2
  185.          Top             =   840
  186.          Width           =   615
  187.       End
  188.    End
  189. defint a-z
  190. Sub Form_Paint ()
  191.     ConvexFrm OStrFrm, 5
  192.     ConcaveCtl Nametxt, 3
  193.     ConcaveCtl FileTxt, 3
  194.     'ConcaveCtl Frame1, 3
  195.     'ConcaveCtl Frame2, 3
  196. End Sub
  197. Sub NameCmd_Click ()
  198.     f$ = LTrim$(RTrim$(Nametxt.text))
  199.     If Len(f$) Then
  200.         Pname.caption = PCase$(f$)
  201.         nswap.caption = LastNFirst$(f$)
  202.     End If
  203. End Sub
  204. Sub ParseCmd_Click ()
  205.     f$ = LTrim$(RTrim$(FileTxt.text))
  206.     Dim FInfo As FilStruct
  207.     errc = ParseFileSpec(f$, FInfo)
  208.     Flbl(1).caption = FInfo.Drv
  209.     Flbl(2).caption = FInfo.Path
  210.     Flbl(3).caption = FInfo.Fil
  211.     Flbl(4).caption = FInfo.Ext
  212. End Sub
  213.